Ss So, os, Soe, Se Se Se o> > > > > > 

qaq<ddecdtetedeeeeaaae 

<«qq@<aq@ddddddd eee 
<<< <<a 
<<< <<< 
<<< <<< 
<<a < «<<a 
<<< «<<a 
«<< <<a 
<<< «<< 
<<< <<< 
<<a <<< 

aq<q4a€4 ee eee aeet eee 

+. 2. 2.2.6.6. 5.6.6 ££ ff eee ee 

qeadedddtdddd ede 

nm 

rn 


bl el eed 
Cl ce el ce cee el ee ee cel el ce ee oe el eh ol el el 
Ol ce ee eel co el ee el el el co el el el el oh el el 
Ce ee el cel cl el cl ee ce el ce el ce el el el el el el el a 


oe eee 
eee on 
es te 
Ce oe el 
woe ee 


i 
Oe 
eee 


Cet el ol -—— 
-—— -—— 
rr -—— 

ae 

ke tt 

Ae te 

ae Ob te 

oe te tA kk 

oe he Be be be 

Se A ke ke 

be kee be 

ke tA ke 

be Be 

a Aa 

a Be ke 


he. Oe Oe Oe. be Oe. Oe Oe. Oe be be be be. be be. Oe. be te te te 
he Oe be. be Oe. Oe Be. Be. be be. be. be be. be be. Oe. be. te. te te 
he Me be be be be be be be be be te te be te te te te te te 


=S Pet ee ee ee eee eT eee ere ee ere eee ee eo ed 


———_ 


H 6 


**FILE**]De*PMS 


nw MMnn 
nw nn wn 
nn “wn “nn 
nn nw nn 
nn nw wn 
wn ww “wn 
nn mw nw 
MMMM nn 
MMnn nn 


aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaeeeeeaaaaaaa 


nn MMWMn 
mn nn “wn 
nn wn wn 
nn ww “wn 
nn “wn nw 
uwn “wn “nn 
mn wn wn 
Mnwnn wn 
MMnnm mw 
ae ew 
Conte = 


LLLLLLLLLL 
LLLLLLLLLL 


“” 
— — 
4% 
wu 
ea2ao 

vov 
te 
—— 
oo 
coo 
ca 
—-Oo 
No 
Nn 
oro 
ow 
~NO 
< 
—> 
wx 
mt 
f-— 
<_— 
= 
“ow 
zs 
>-. 
nw 
wn 
me 
ww 
™~m 
"=< 
ps 
>> 
— 
. 
™m 
a 
te) 
0 
- 


angen totes set FO GUAGE, (BLISS32), 

Se EE 

= 
BEGIN 

i } 

Eee aoe Ne oo EE er 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


ie nue ee ss ieee nee A_LICENSE AND MAY BE USED AND sok be 
ONLY IN ACCORDANCE W TERMS LICE AN 


Sss 


ot ot tt I HOOD 


NOUS WN (OOD ONOUFE Ww 


} HER 
't TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SU 
i® AND SHOULD NOT BE CONSTRUED AS A C 
is CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


at TO CHANGE WITHOUT NOTICE 


BJE 
OMMITMENT BY DIGITAL EQUIPMENT 


"*eeneeeneeneeeaneenenenennenenanenee 


PETITILILI LILI LLL LLL LLL LLL LTT iiLiLiiLii lit iiiil 

ad 

FACILITY: FI1ACP Structure Level 1 

i ABSTRACT: 
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This module contains the local performance measurement data base 
and the performance metering routines. 
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Boe ENVIRONMENT: 
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: NO 
PMS-START SUB =: NOVALUE, 
PMS_END_SOB : NOVALUE; 


! start nesnyr tne goto sung tion 
' end measuri ng main functio 
! start measuring oubtunction 


1 

1 FORWARD ROVTIME 
1 PMS_ 

: 

1 ! end measuring subfunction 
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9° 138% 93:14:29 VAX-11 Bliss-32 V4.0-742 Page 3. 
p-1984 12:29:4 DISKSVMSMASTER:CF11A.SRCIPMS.832;1 (2) 


| 
| 
3 1 s1ite Ps 
: § ¢ 1! : 
3 0 1 ! The performance measurement data base consists of the accounting array in ‘ 
wees 1 ! system space, as well as some local storage to keep intermediate figures. ° 
ee: 5 1! The data accumulated per function (and also broken out for significant ‘ 
ia 2 1 ! subfunctions) includes the number of functions executed, the number of ‘ 
3; 1 ! modifiers, the number of disk reads, disk writes, and cache reads, the ‘ 
3 e 3 ! : amount of CPU time, and the number of page faults. ‘ 
: 7 1 !- ‘ 
oe 91 1 ; 
Se, 3 1! ; 
:; 80 95 1 ! System space data array. Each measured parameter is contained in a vector ‘ 
; 6«(8} 94 1 ! with one entry per function. ‘ 
3; § 95 1! : 
; 8 9 9g 1 : 
; «84 97 1 EXTERNAL ‘ 
3; §5 0398 #1 PMSSGL_FCP : VECTOR ADGRESSING_MODE (ABSOLUTE); ° 
; 86 0399 1 ! base of FCP measurement array : 
; 7? 0400 1 ‘ 
; 8 01 1 BIND ‘ 
; wy ret 1 PMS$GL_COUNT = PMSS$GL_FCP + 0 VECTOR (10), ‘ 
; 90 04035 1 PMS$GL_MCNT = PMS$SGL_FCP + 40 VECTOR (10), ° 
; (9! 0404 1 PMS$GL_READ = PMS$GL-FCP + 80 VECTOR £10], : 
‘= 0405 1 PMSSGL_WRITE § = PMSSGL-FCP + 120 VECTOR (10), : 
; BoOe 1 S$GL_CACH = PMS$GL_FCP + 160 VECTOR (10), ° 
: 96 04 1 PMSSGL_CPU = PMSSGL_FCP + se vEcTOR (10), ‘ 
; 9S 0408 1 PMSSGL_PFA = PMS$GL-FCP + 240 vector £10); : 
: «96 0409 1 : 
3; WW Rei ;} ‘ 
s 411 17 ! Running totals maintained by FCP routines. ‘ 
; Bele 1 3 ‘ 
; 100 0413 1 : 
; 101 0414 1 GLOBAL : 
3 136 0415 1 PMS_TOT_READ ' total disk reads ‘ 
> 10 0416 1 PMS~TOT WRITE, i total disk writes : 
3; 104 0417 1 PMS_TOT_CACHE; ! total cache reads ‘ 
; 105 0418 1 ; 
: 106 419 1! : : 
3 44 r y : | Base values of parameters at start of this function. : 
; 10% ¢ 1 ‘ 
: 110 4 1 OWN ° 
; ni 424 1 PMS_FNC_READ : 
: 118 425 1 PMS"FNC_WRITE, : 
wy 4 $ 1 PMS_FNC_CACHE, ‘ 
3; (114 1 PMS_FNC_CPU, ; 
3 (115 4 g 1 PMS"FNC_PFA; : 
3 116 4 1 : 
3; 11 450 1! . 
5 118 ? 1 i ; Base values of parameters at start of current subfunction. | ‘ 
: 126 233 
s tel 434 1 ; 
3 Y § 435 1 GLOBAL : 
: ' ? +38 ' PMS_SUB_NEST; ! nested subfunction flag ; 
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1984 01:12: VAX-11 Bliss-52 V4.0-742 Pa 5 
- 8c 33) : ; DISKSVMSMASTER:CF1 A.SRCIPMS.B32;1 “ (3) 


ou 


1 
1 


; 133 445 1 GLOBAL ROUTINE PMS_START : NOVALUE = 

s 136 779 i 

; ie 44 ‘++ 

| 44 1! 

; : i rit ! FUNCTIONAL DESCRIPTION: 

: 173 rk } This routine initiates measurement for the main function being executed. 

3; (141 re 1! 

: 146 tee 1 ! CALLING SEQUENCE: 

3 %6 455 1! PMS_START () | 

3; 6144 $28 1! 

; «6145 45 1 ! INPUT PARAMETERS: 

: 146 458 1! NONE 

3; «147 0459 1! 

: «148 04690 1 ! IMPLICIT INPUTS: 

3 «149 0461 1! NONE 

3; 150 Ree BB 

3; «6151 465 1 ! OUTPUT PARAMETERS: 

3 136 0464 1! NONE 

on 0465 1! 

s 156 0466 1 ! IMPLICIT OUTPUTS: 

3 135 0467 1! NONE 

> 156 0468 1! 

gs 337 469 1 ! ROUTINE VALUE: 

3; 138 470 1! NONE 

3; 159 0471 1! 

: 160 0472 1 ! SIDE EFFECTS: 

: 161 0473 1! NONE 

: 166 0474 1! 

; (46 0475 1 !-- 

3; 164 0476 1 

; 6165 0477 § BEGIN 

; 166 o78 

3; 167 7 § LOCAL 

; Hy oS PROCESS_HEADER : REF BBLOCK; !' pointer to FCP process header 

3; 170 peee EXTERNAL 

3 171 048 CTL$GL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 

: 76 0484 ' address of process header in control region 

: ih bebe 

s 75 bc89 ! To initialize measurement, we take copies of the running totals of all the 

3 178 tt] parameters and stash them, so we can later compute the incremental usage. 

: 178 490 | 

: ha 4 oe) PROCESS_HEADER = .CTLSGL_PHD; ! get address of own process header | 

: 181 198 PMS_FNC_READ = .PMS_TOT_READ; 

; 188 94 2 PMSFNC_WRITE = .PMS TOT WRITE; | 

; 18 95 2 PMS-FNC_CACHE = .PMS-TOT-CACHE:; | 

3 184 49 PMS"“FNC~CPU = .PROCESS HEADER[PHDSL_CPUTIM); 

: 185 497 PMS"FNC-PFA = .PROCESSHEADERLPHDSL PAGEFLTS); | 

: 189 499 1 END; ! end of routine PMS_START | 
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N 6 
WeaSep-19b6 12:05:47 DARKSUMEMASTERCFTIASSRCIPMS.032;1 29° ¢35 

“DENT \V04-000\ 

.PSECT SLOCKEDD1$,NOEXE,2 
00000 PHS_TOT READ: : 
00004 PMS_TOT “URITE:: 
00008 PHS_TOT “EREHE:: 
0000C PMS_FNC READ: 
00010 PMS_FNC “URITE: 
00014 PMS_FNC_CACHE : 
00018 PMS_FNC_CPU: 
0001C PMS_FNC_ Bir 
00020 PMS_suB NEST: : 
00024 PMS_SUB_ FUNG: 
00028 PMS_SUB_ aEAD: 
0002c PMS_SUB “URITE: 
00030 PMS_SUB_CACHE : 
00034 PMS_SUB_CPU: 
00038 PMS_SUB_PFA: 

-BLKB 


oe ae ae a ae ae ae ae ae ae a ee a 


-PSECT S$CODES,NOWRT,2 


0004 00000 .ENTRY PMS_ START Save R2 > 0445 

52 0000' CF i 900¢ MOVAB PMS~TOT_READ. ; 
50 000000006 9F p 000 MOVL a CTL SGC PHD, PROCESS _HEADER > 0491 
oc A 6 990 MOVG PMS_TOT_REA A + 0493 
14 =A 08 A2 D 1 MOVL PMS “TOT CAC PPRS. F NC_CACHE > 0495 
18 «OA AO 00 0001 MOVL  56(PROCESS_ he BRS. POMS FNC_CPU : 0496 
. 4C =6a0 D0 0001C MOVL § 76(PROCESS"HEADER), PMS~FNC_PFA + 0497 
04 00021 RET + 0499 


34 bytes, Routine Base: S$CODE$ + 0000 


-EXTRN PMSSGL_FCP, CTLSGL_PHD 
3; Routine Size: | 


7 
16-8 -1984 12:5 VAX-11 Bliss=-32 V4.0-74 pP 
ba oats rie eC Sed Mm eS toe oy es er de 


On 


it 
: 136 } GLOBAL ROUTINE PMS_END : NOVALUE = 
2B ie 
; 138 4 FUNCTIONAL DESCRIPTION: | 
; 195 1! This routine ends measurement for the current main function. It 

3 1} subtracts the stored base values from the running totals of the 

s 19 7 5 parameters and accumulates the delta in the system space cells 

; 198 1! for the particular function. 
; 199 219 : } | 
; of 14 1 | CALLING SEQUENCE: 
3 os 2} 1! PMS_END () 

; 141! 

; 515 1 ! INPUT PARAMETERS: 

i 205 316 1 | NONE | 
: $09 518 1 i IMPLICIT INPUTS: | 
3 4 tah ; IO_PACKET: address of 1/0 packet of this function 

Py ; | 
3 10 Be 1 1 =! QUTPUT PARAMETERS: 
it $358} i — 

; i§ 0524 1 | IMPLICIT OUTPUTS: | 
eo Bie 
: 16 05 a i ROUTINE VALUE: 

ae ei 

; i 0530 1 | SIDE EFFECTS: 
; 31 B2 1 : } measurement data base updated | 
2 ne ie | 
; 3 0539 BEGIN 
; 6 0339 BIND ! table to translate function to array index | 
; $f 0538 FUNCTAB = UPLIT BYTE (IO$_ACCESS, 
3 8 0539 10$- CREATE 

3; 229 9540 10$“DEACCESS, 

; 541 I1O$_DELETE, 
3 231 0948 10$-MODIFY 
; ¢ 54 10$-ACPCONTROL) | 
3 re : VECTOR C,BYTE); 

: 235 346 2 LOCAL | 
3 54 Dd. ! value of parameter change. : 
; 548 FUNCTION : BBLOCK(4], ! 1/0 function code, including modifiers 
; 549 J ! array index 
; +4 329 PROCESS_HEADER : REF BBLOCK; ! address of own process header 
: 
3; 241 226 EXTERNAL 

3 4g 55 10_PACKET : REF BBLOCK, ' address of 1/0 packet 

: 4 554 CTCS$GL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); ; 
: a 223 ! address of process header in control region 


es 
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PAS 1$-sep=19 4 01:12:5 VAX=11 Bliss-32_ V4.0-742 Pa 8 R 
v04-000 14-Sep-1984 93:38:29 DISKSVMSMASTER:CF11A.SRCJPMS.832;1 a (4). voc 
; 34 ! If there is a subfunction open, close it first. ; 
; 60 IF .PMS_SUB_NEST NEQ 0 ; 
; 61 THEN ‘ 
; 66 BEGIN ; 
3 6 PMS_SUB_NEST = 1; ° 
; 64 PMS_END_SUB (); ¢ 
; 65 ND; ‘ 
; 69 ! Derive the table index from the function code by searching the function : 
; 208 ; code table. If the code is not found, we do not record data. ° 
3 $76 ‘ 
3 71 Js ° 
; 276 BEGIN : 
; 57 INCR I FROM 0 TO 5 DO ; 
3 574 IF .10 PACKETCIRPSV_FCODE) EQL .FUNCTABL.1] ; 
3 0575 THEN ERITLOOP .1 ; 
; 9278 END; | ‘ 
; 057 ‘ 
; 0978 IF .J EQL -1 THEN RETURN; : 
3 $880 ! Compute the deltas and accumulate them into the system space array. ‘ 
; 0581 ' Note that we explicitly compute the change for each parameter and then : 
; b28¢ ! add it into the data base cell, to prevent windows in which the value of ‘ 
3 58 ! the parameter is held in a local. This is because we cannot count on the ‘ 
; Bene : compiler to generate simple stores which would be hazard free. ‘ 
: 5 ; 
; 0367 PROCESS HEADER = -CTLSGL PHD: | : 
; 388 FUNCTION = .10_PACKETCIRPSW_FUNC); : 
; 0390 PMS$GL_COUN Fe = TY 11s pegmnaalbatate +1; ‘ 
; 591 IF .FURCTIONLIO YAAGCESS ° 
: 592g THEN PRSSGL ACNTC:J] = .PMSSGL_MCNTC.J) + 1; ; 
; 59 FUNCTIORCI OSV. CREATE ; 
; 594 THEN PMSSGL_MCNTC.J) = .PMSSGL_MCNTC.J) + 1; : 
3 595 I FUNC TLORE ]OSY DELETE) ; 
3 238 THEN PMSSGL_MCNTC.J) = .PMSSGL_MCNTC.J) + 1; : 
3 59 = .PMS_TOT_READ - .PMS_FNC REAR; : 
: 598 ¢ PMSSGL READE. J] = .PRSSGLREADL J] * .0; | : 
5 5 s . TOT_WRITE - .PMS_FNC welte: : 
; $9 PMSSGL_WRITECT J] = .PMSSGL_WRITEC.J) + .D; : 
: 1 = .PMS_TOT_CACHE = .PMS~FNC CACHE: ; 
3 § PMSSGL_CATHECTJJ = , PrISS6L _CACAEL JJ + .D; : 
; 0 = .PROCESS_HEADERCPHDSL cPUT IA} = .PMS_FNC_CPU; ; 
; 04 2 PMSS$GL_CPUL.JJ = .PMSSGL_CPUL.J) + .D; ; 
; 5 = PROCESS _HEADERC(PHOSL PAGEFLTS] - .PMS_FNC_PFA; : 
: O¢ PMSSGL_PFAL.J] = .PMSSGL_PFAC.J] + .D; : 
; 08 END; ! end of routine PMS_END : 


38 36 35 34 33 32 00022 P.AAA: .BYTE 50, 51, 52, 53, 54, 56 : | 


E————— 


; Routine Size: 156 bytes, Routine Base: S$CODES + 0028 


d 7 | 
PRS 1p~se~ 138% 91:18:39 VAX-11 BLliss-32 V4.0-742 Page 9 
v04-000 14-Sep-1984 12:29:46 DISKSVMSMASTER:CF11A.SRCIPMS.B32;1 (4) 

FUNCTAB= P.AAA 
.EXTRN I0_PACKET 
: joe 001¢ 99 aENTRY PMS.END. Save R2.R3,R4 : 0500 
33 000000006 §¢ SePRSS$cL MCNT, R3 ; 
4 0 TSTL  P'S_SUB_REST + 0560 
8 1 1 BEQL tsi] : | 
64 1 0 1 MOVL #1, PMS_SUB_NEST + 0563 
0000v cf 0 FB 1 CALLS #0, PMS~END~SUB + 0564 | 
1 00006 ef Dd 1A 18: MOVL 1O_PACKET, R1 3 0574) 
0 ps 1F CLRL : 
52 DS AF4O 9A 1 28: MOVZBL FUNCTABL J, R2 : 
52 20 Al 06 9 E 0026 CMP7V. #0, #6, 32(R1), R2 : | 
00 ¢ BEQL «63 : 
EF 50 5 F3 000 AOBLEQ #5, I, 2$ ; 
50 1 cE 00 MNEGL #1, J > 0573) 
FFEFFFFF 8F : 8 33 2 3% er 4g #-) 3 0578 | 
52 00000000G 9F 4 00 E MOVL @#CTLSGL_PHD, PROCESS_HEADER ; 0587 
51 Al 3C 0004 MOVZWL 32(R1), FUNCTION : 0588 
D8 A340 06 90049 INC PMS$GL_COUNTLJJ : 0590 
03 51 06 £1 0004D BBC #6, FUNCTION, 4$ + 0591 
6340 Bg 0051 INCL  PMSS$GL_MCNTLJJ ; 059¢ 
51 95 00054 4$ TSTB FUNCTION > 059 
03 18 0096 BGEQ : 
6340 06 0005 INCL PMS$GL_MCNTCJ) + 0594 
03 51 08 €1 00058 5S: BBC #8, FUNCTION, 6$ : 0595 
6340 Og 0005F INCL. PMS$GL_MCNTLJ : 0596 
51 EO AG we me 00062 6$: SUBL3  PMS_FNC_READ, PMS_TOT_READ, D : 0597 
28 A340 51 c6 000 ADDLg D, PMS$GL_READCJ) : 0598 
51 +3 AG FO Ag OC 9006 SUBL PMS_FNC_WRITE, PMS_TOT_WRITE, D ; 0599 
0 A340 51 c0 000 ADDL¢ D, PMSS$SGL_WRITELJ : 0600 
51 8 AG FL =AG «C3 0007 SUBL3 PMS_FNC_CACHE, PMS_TOT_CACHE, D ; 0601 
A340 51 C9 444 ADDL D, PMS$GL_CACHECJ 3 B66 
51 3 A FB AS C3 0008 SUBL PMS_FNC_CPU, 56(PROCESS_HEADER), D ; 060 
OOAO €34 51 €0 00089 ADDLg D, PMSS$GL cPut J + 0604 
51 4C A FC AG CC Babee SUBL PMS FNC _PFA, 6(PROCESS_HEADER), D ; 0605 
00C8 C34 51 ¢O 00095 ADDL2 0D, PMSSGL_PFALJJ > 0606 
04 00098 78: RET : 0608 


SH 
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GLOBAL ROUTINE PMS_START_SUB (INDEX) : NOVALUE = 


Oo 
oD 


es 


PMS 

v04-000 

; 299 1 

; 300 1 1 

Bo RY 

; 08 3h | { FUNCTIONAL DESCRIPTION: 

: 305 615 1! This routine starts metering for the indicated subfunction. 
oot 

; 308 Ost8 1 | CALLING SEQUENCE: 

; » 619 PMS_START_SUB (ARG1) 

>: 311 1 1! INPUT PARAMETERS: 

: \§ 6 § : } ARG1: index of measurement array to use 

: 314 0624 1 ' IMPLICIT INPUTS: 

gS 8 | Rae 

: 317 0627 1 | OUTPUT PARAMETERS: 

ih oe fe Sec 

: 320 06 0 1! IMPLICIT OUTPUTS: 

: ¢1 06 1 NONE 

: 38 06 ‘ 1! ROUTINE VALUE: 

: 355 e351 | nite 

: 326 0636 1°! SIDE EFFECTS: 

3 e? 0637 1! NONE 

3 8 0638 1! 

Spe Bhs 

: 331 0641 BEGIN 

; 3§ 064 LOCAL 

3 $e pose PROCESS_HEADER : REF BBLOCK; ! pointer to FCP process header 
; 36 064 EXTERNAL 

: 7 064 CTLSGL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); ; 
3 $ oees ! address of process header in control region 
: 340 0650 ! We copy the current penning totals into subfunction holding cells to 
3 1 0651 ' compute the deltas later. Note that since the extend subfunction can be 
3 § $636 } reentered, we do nothing if the depth count is already non-zero. 

: 344 0654 2 

: 5 0655 2 PMS_SUB_NEST = .PMS_SUB_NEST ¢ 1; 

: g 0656 IF [PMS~SUB_NEST NEG 1 THEN RETURN; 

: 2 PROCESS-HEADER = .CTLSGL_PHD; 

: 349 36 PMS_SUB_FUNC = . INDEX; 

; 350 60 @ PMS"SUB-READ = .PMS TOT_READ; 

> 351 1 2 PMS"SUB"WRITE = .PMS_TOT_ WRITE; 

; ¢ é PMS-SUB-CACHE = . TOT” CACHE; 

; 35 PMS"SUB-CPU = .PROCESS_HEADER[LPHDSL_CPUTIM); 

; 26 664 PMS"SUB-PFA = .PROCESS-HEADERLPHDSL_PAGEFLTS); 


V4.0-742 P 1 
F11A.SRCIPMS.832;1 ww 6 


0 


v04-000 
3s 3% 0666 1 END; 
0004 
52 0000° CF of 
62 06 
01 ; if 
5 stead * F 08 
Se & 4 A 
| A 3 A D 
1 A 3 A2 00 
14 =A 8 ad 00 
18 =A 4C Ad 00 
04 
; Routine Size: 47 bytes, Routine Base: $CODE$ + 00C4 


———____---  S - 
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f 7 | 
16-Sep-1984 01:12:5 VAX-11 Bliss-32 V4.0-742 Page 11) 
12286871382 93:38:29 DISKSVMSMASTER:CFIIA.SRCJPMS.B32;1 3) 
! end of routine PMS_START_SUB | 
| 
| 
.ENTRY PMS_START_SUB, save R2 ; 0609 
0 MOVAB PMS~SUB_NEST, R : 
0 INCL § PMS"SUB“NEST ; 0655 
CMPL §_ PMS"SUB"NEST, #1 : 0656 
C BNEG ~=s'1$ : 
é MOVL § @ACTLSGL_PHD, PROCESS_HEADER : 0657 
MOVL INDEX, PAS_SUB_FUNC ; 0659 
1A MOVG PMS_TOT_READ, PMS_S AD : 0660 
1F MOVL §PMS-TOT~CACHE, PMS_ ACHE : 066 
$6 MOVL 56(PROCESS_HEADER), PMS_SUB_CPU ; 066 
9 MOVL § 76(PROCESS"HEADER). PMS~SUB_PFA > 0664 
2E 1%: RET ; 0666 
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GLOBAL ROUTINE PMS_END_SUB : NOVALUE = 


'e¢ | 

i i 
FUNCTIONAL DESCRIPTION: 

This routine ends metering for the currently active subfunction. 


CALLING PMS END SUE 


SIDE EFFECTS: 
measurement data base updated 


i 
i 
i 
i 
i 
i 
D_SUB () 
0 i INPUT PARAMETERS: 
71 i NONE 
Ie i 
7 i 
74 i 
75 
76 i QUTPUT PARAMETERS: 
a NONE 
79 i IMPLICIT OUTPUTS: 
$9 NONE 
Hf i ROUTINE VALUE: 
8 NONE 
i 
i 
i 
ie 
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BEGIN 
LOCAL 
Je ' array index 
D i parameter difference 
PROCESS_HEADER : REF BBLOCK; ! pointer to FCP process header 
EXTERNAL 


SSLESESSSSSESESE 


CTLSGL_PHD : REF BBLOCK at a bo -MODE (ABSOLUTE); 
address of process header in control region 


™~ 
_ 


! Decrement the nesting count. If non-zero, we are in a nested extend and 
: do nothing. 


PMS_SUB_NEST = .PMS_S 
IF [PMS~SUB_NEST PNeS Se TNEN RETURN; 


' Now compute the delta for each parameter by subtracting the base from the 
: fyemnine total. Record it by adding into the system array. Also deduct 

i the delta from the charge for the main function by adding it into the 

: main function base. 


| 
| 
| 
IMPLICIT. INPUTS: 
| 
| 
| 
| 


PROROPOPOPOPOPOPORONOPOPONONOPOPOPPONIPINIPUNIPIDD 2 2 2 2 tt 


Dee Oe Oe Oe Be Be Se BE Se Se Be Se Be Se BeBe Se Se Se Se oe & 


ae 


71 
71 
71 
71 
71 
71 
71 
71 
71 
7 
7 
7? 
7 


PROCESS_HEADER = .CTLS$GL_PHD; 


es 


V 


H 7 

PM 16-Sep-1984 :50-VAK=11. BL iss-32_v4.0-742 Page 1 
v02-000 1ereee= TRE 95:58:29 «UT SumGHASTERcCHTiaconeopms.a32:1 2% «6 
J = .PMS_SUB_FUNC; ! get array index 

PMSSGL_COUNTC.J] = .PMSSGL_COUNTC.J) + 1; 


D = .PMS_ TOT_READ = .PMS_SUB_READ 
PMSSGL_READ( J) = .PMSS$GC READ. 
PMS_FNC_READ = .PMS_FNC_READ 


D = .PMS_TOT a .PMS_SUB_WRITE: 
PMSSGL WRITET J zPASSOL WRITE J) + .D; 
PMS_FNC_WRITE S_FNC_WRITE + .0; 


D= T_CACHE = .PMS SUB_C cfs 
PMSSGL rmexcuet 4s = .PMS$GC_CATHE 3 + .D; 
PMS_FNU_CACHE = PMS _FNC_CACHE + 


— 


NOUS WN (OO OONOUES WAN OOONOu 


“43 + .0; 


, ek ek ek el el eee eke el ek kk ek 
COOCCCOCOCCOOCOCOCOOCOOOCOOOOoOOoOO 
SSNS 
ONAVE WN (OO ONO NEW OOO NOUS 


3; Routine Size: 111 bytes, Routine Base: SCODES + O0F3 


: 

: 

| : 

| ; 

4 Prasdt “cout 9 HEADERCPHDSL » cPUTIM] - gins. SUB_CPU; | ; 
4 "FNC_CPU'= .PMS_FNC stp Pl 5h | ; 
4 bani it Meenenatt, PAgEIS TS) a .PMS_SUB_PFA; ; 
37 4 *PNC “PFA = Paa F _FNC_P ben's D; 
39 48 1 END; ! end of routine PMS_END_SUB : 
001¢ 00000 .ENTRY PMS_END_SUB, Save R2,R3,R4 > 0667 : 

54 00000000G 9F 9E 00002 MOVAB a@APASSGC_COUNT, R4 : 3 

53 0000' CF 4 00009 MOVAB PMS_SUB_REST, R3 : F 

63 D S005 DECL | PMS~SUB-NEST > 0714 ; 

5¢ 12 0001 BNEQ : 0715 : 

52 000000906 Hi 06 00012 MOVL aNCTLSGL PHD. PROCESS_HEADER : offs : 

6440 D6 0001D INCL PmsSer Tountty : 0726. ; 

51 £0 A3 08 a3 C3 00020 SUBL3 PMS SUB READ, ens. TOT_READ, D : 0728 ; 

0 Ads 51 ¢€0 00026 ADDL2 0D, PRSSCL A tJ)" + 0729 ; 

EC AS 51 ¢ 00 B ADDL2 0D, PMS_FN : 0730 ; 

51 E A 0c Ad C3 0002F PMS SUB Rte PMS TOT_WRITE, D : 07 é ; 

AGG 31 CO 00035 ADDL2 OD, PMSSGL Rife : 07 3 

FD AS '£ 90 A ADDL? D. PMS_FNC WRITE : 07 4 ; 

51 eB A 10 Ad € E SUBL3 PMS SUB_CACHE, PMS_TOT_CACHE, D : 0736 : 

OOAO C44 21 ¢ Q044 ADDL2 OD, PaSscL CHECJJ~ : 0737 ; 

FeO 1 C0 O004A ADDL2 D, PMS PNt’ E : 0738 : 

51 38 OA 4 Ad C OO4E SUBL3 PMS SUB CPO AM onocess HEADER), D : 0740 ; 

00cg C44 31 ¢ 00 ADDL2 0, PMS$GL_ChutJ : 0741 ; 

FBO ee. A ADDL? D. PMS FNC cPY : 0742 : 

51 46 A 18 Ad C 6 Hi SUBL3 PMS SUB _PFA, 76(PROCESS_HEADER), D > 0744 : 

OOFO C44 31 ¢ ADDL2 0, PMSS$GL_PFACJI : 0745 : 

| ioe 1 ¢ 006A ADDL2 0. PMS_FNC_PFA > 0746 : 

4 O006E 1$: > 0748 : 


5 348 code + 66 data bytes 
s Run Time: iz. 
3; Elapsed Time: :30. 
3 Lines/CPU Min: 


6 
; Lexemes/CPU-Min: 1 $3 


"Y Used: 118 pages 
; Compilation Complete 


PM 16-Sep-1984 01:12:5 VAX=11 Bliss-32_V4.0-742 Page 14 R 
vo2-000 1 ~3ep-19 4 93:38 4 DISKSVMSMASTER:CF11A.SRCIPMS.B32;1 - a V 

440 7% ; 
5 461 i 1 END : 
3 442 751 0 ELUDOM 
PSECT SUMMARY ; 
; Name Bytes Attributes : 
: $LOCKEDD1S 0 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC AL IGN(2) : 
: $SCODE 354 NOVEC.NOWRT, RD. EXE.NOSHR. LCL, REL. CON.NOPIC.ALIGN(O) : 
; Library Statistics 5 
3 eocccses SyEhel§ scocecece Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 14 0 1000 00:01.9 ; 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:PMS/OBJ=OBJ$:PMS MSRC$:PMS/UPDATE=(ENH$:PMS) ; 


COMMAND QUALIFIERS 
| 


L EQUIPMENT CORPORATION 
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